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* SORTER 

*SORTER is a program that simulates the operation of a 
card sorter. It runs under the OS-3 operating system on the 
CDC 3300. 

Input to the *SORTER program is a file of variable length 
BCD records (80 column keypunch cards, for example); the maximum 
length of any record is 136 characters. An input file may be 
read from the card reader or it may be stored in the system as a 
saved file. In the latter case,- the saved file may be prepared 
as a card deck and copied into a saved file, or the on-line editor 
can be used to create the file. For a definition of saved files and 
instructions on the use of EDIT, the user is referred to: 

1) OS-3 User's Manual, cc-68-3 

2) A Control Mode Manual for OS-3 Version 2.0, 
cc-68-21 

3) OS-3 Teletype Editor Manual, cc-68-17 

The format of a program for saving a card deck under some file 
name is given here:* 

7<Job #>,<User #> , <Identif ication field> 
o 

7 Copy, J2f=<FILE NAME> 



card deck here 



Z LOGOFF 



* The characters " <" and " >" in the above prototype are used to 
denote fields; these characters should not be punched in the card. 
For example: John Doe has a job no. = 99999 and a user no. = 123*4 
His first card in the preceeding prototype looks like this: 

i 99999,1234, John Doe 



Prior to using *SORTER, the input file must be equipped 
to a logical unit; the program rewinds the input file if 
necessary. Program output is stored in 13 logical units that 
correspond to the 13 pockets of a sorter. Pockets and their 
logical unit equivalents are given below: 

Pocket LUN 



1 1 

2 2 

3 3 

4 4 

5 5 

6 6 

7 7 

8 8 

9 9 

11 11 

12 12 
Reject 10 

Upon completion of the program, a file mark is written at 

the end of each output file and the file is rewound. 

The calling sequence for *SORTER is: 

* SORTER , 1= <lun > , T= <type > , C= <column > , P= <lun > 

where I = the input logical unit. If I is given, but no unit 

is specified, then logical unit 60 is assumed. 

T = A number between 1 and 5 that designates the type of 

sort to be performed. 



1. 



2. 



3. 



[0-9] punch 


-> 


Pockets 


through 9 


Blank 


~> 


Reject 




All else 




Reject 




[0-9] punch 


Reject 




12 punch 


-»- 


Pocket 12 




11 punch 


->■ 


Pocket 11 




, punch 


-> 


Pocket 




All else 


->- 


Reject 




[0-9] punch 


-»- 


Reject 




[A- I] punch 


->• 


Pockets 1 


through 9 


[J-R] punch 


-> 


Pocket 11 




[S-Z] punch 


-»- 


Pocket 





4. 


[0-9] punch 


-- 


ir- [J-R] punch 




All else 


5. 


[0-9] punch 




[A- I] punch 




[J-R] punch 




[S-Z] punch 




All else 



If there is more than one 
digit punch in the 
column, sorting takes 
place on the smallest 
digit punched. All 
zone punches ignored 
except if no other 
punches in the column. 



A±± eise ■* Reject 
■> Reject 

-> Pockets 1 through 9 
-> Reject 

-> Pockets through 9 
-*- Pocket 12 
■> Pocket 11 
-»■ Reject 
-> Reject 

C = The number of the column upon which the sort will be 

performed. If no column is named, column 1 is assumed. 

P = The logical unit on which totals will be written. If 
no unit is specified, the standard output unit = 61 
will be assumed. If P is not present, totals will be 
suppressed. 



If further sorting is required on one of the output logical 
units, *SORTER can be called again with this unit as input. 
Before proceeding, the program will automatically transfer any 
input logical unit in the range 0-12 to another logical unit and 
destroy residual information contained in 0-12. 

At the conclusion of the program, EDIT may be used to 
inspect the contents of any output files. By use of COPY, these 
files may also be listed on the printer or punched as a new deck, 

EXAMPLES: 

1. This program sorts on columns 1-3 numerically. Data is 

entered on the teletypewriter . 

2. This program sorts on column 1-3 alphabetically. Data 
file is entered on the teletypewriter. 

3. This program sorts on columns 1-3 alphabetically. Data 
file is entered through the card reader. 



5. 

Turn Teletype to the on-line position. Press the keys control and 
A at the same time. A # will be generated. Then type in your job 
number and user number and press carriage return (CR) . Your number 
will be blotted out for security reasons and another # will be 
printed. Then type in EDIT CR . "]" will be printed and you will 
type INPUT CR . Now you are ready to type in the records to be 
sorted. Each line in the example represents one record. Records 
are sequentially numbered by the EDIT program. 



EXAMPLE 1 
lift 
j? EDIT 



Explanation 



UN? UT 
0001?! 1 :579 

00^3:491 

30K04: 169 

0000 5:29 5 

00006:395 

00007:296 

£0000:834 

00009:5^0 

00010:935 ENTRY OF DATA 

20011:517 

00012:322 

00313:91 1 

00^14:067 

•W 15: 283 

0^016:59^ 

fl£017:525 

00 £ 18:821 

00019:723 

00020:^80 

0002I: 

]0UT DATA (Press cntrl W or alt mode to get back into EDIT mode) 

]EUUIP,53=DATA 

j (Press cntrl A to: get back to control mode) 

#* c 0RTER, 1=33 ,C = o,T = l ,F (This initiates sort on column 3) 
COUMTER VALUED- 



= 


A 


1 = 


3 


2 = 


1 


7 — 


2 


4 = 


1 


5 = 


A 


6 = 


1 


7 = 


2 


8 = 


!il 


9 = 


2 


11 = 




12= 





REJECT= 





T0TAL= 


zz 



(SORTING ON COLUMN 3) 



6. 



#£l)IT 




JFIM,^ 




] A P P E \' I ) 


9 i 


LAPPEND 


O 


] APPEND 


»3 


3APPEND 


>4 


]APPEND 


,5 


3 APPEND, 


} & , 


3APPEND, 


7 


JAPPEiJD, 


g 


3APPEf][), 


9 


] OUT ,111" 


, T 


JFPUNV 


>4=T£^T 



(File input: scratch area (this file 
contains the records with zeroes in column 3) 
Add to this, file 1 which contains the ones 
in column 3, by appending file 1, etc. ... 
through file 9. Then the completed file 
is written by the output command under the 
name of Test which is also a file.) 



(In order to sort in column 2, we must 
equip the file named Test - to a logical 
unit number n, where 12<n<50. 



7. 



#*-ORTER, 1=34,0=2,1=1 

#£DIT 

]FIf>],0 



(Press cntrl A and proceed to sort 
column 2 ) -- 

(This initiates sorting on column 2 : 
since P was not present in *SORTER 
statement, the totals (counter values) 
will not be printed. The program 
proceeds exactly as the sort on col 3.) 



] APPEND, 1 




] APPEND, 2 




3APP£ND,3 




] APPEND, 4 




] APPEND, 5 




3 APPEND, 6 




] APPEND ,7 




]APPEND,H 


. 


]APPEND,9 




30HT,Th-T - 




3 

#*~QRTER,I=34,C: 
COUNTER VALUED- 


:1 ,T=1 ,P 


/) — 

1 = 

2 = 

3 = 

4 = 

5 = 
'6 = 

1- 
c — 

11 = 
12= 

REJECT= 


1 

3 
3 
1 
3 

1 
3 
3 

V) 



(SORTING ON COLUMN 1) 



TOTAL = 



#EDIT 



] 
]FIM,ti 



]APPEND,1 

] APPEND, 2 

3 APPEND, 3 

3APPEND,4 

3APPEND,5 

]APPEND,6 

] APPEND, 7 

]APPE(JD,8 

]APPEi-]D,9 

JOUTjTE^T 

3LI~T 

:0S7 
5 169 
23 3 
29 5 
296 
322 
390 
395 
491 
517 
:525 
:579 
:723 
:821 
:834 
:890 
:98Z 
:91 1 
:935 

3 

#L0G0FF 
TIME 4.500 
# 



(The final listing shows numbers completely 
sorted from columns 1-3.) 



; 0ND- 



MFBLK'" 25 COFT SG . 52 



EXAMPLE 2 



#EDIT 



3 INPUT 



00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 :VBN 

00023s 

J0UT*TEST 



QWE 
WER 
ERT 
RTY 
TYU 
YUI 
UIO 
I OP 
ASD 
SDF 
FGH 
GHJ 
HJK 
JKL 
ZXC 
XCV 
CVB 
BNM 
NMQ 
MQW 
DF6 



(DATA ENTERED ON TELETYPEWRITER) 



#EQUIP#34=TEST 
#*S0RTER*I=34*C=3>T=1#P 
COUNTER VALUES- 



(SORTING ON COLUMN 3 DONE NUMERICALLY 
FIRST.) 



0* 





1 = 


1 


2= 


2 


3= 


3 


4 = 


3 


5 = 


3 


6= 


3 


7 = 


2 


8= 


3 


9« 


2 


11 = 





12= 





REJECT* 





TOTAL* 


22 



#EDZT 
3FIN 
3 APPEND* 1 
3 APPEND* 2 
3 APPEND* 3 
3 APPEND* 4 
3APPEND* 5 
3 APPEND* 6 
3 APPEND* 7 
3 APPEND* 8 
3 APPEND* 9 
30UT*TEST 
3 



10. 



#*S0RTER*I = 34*O3*T=»2*P 


COUNTER VALUES- 




0= 




5 


1 = 







2« 







3= 







4» 







5= 







6 = 







7 = 







8= 







9 = 







11* 




9 


12- 




8 


REJECT= 







TOTAL* 




22 


#EDIT 






3FIN 12 






3APPEND* 1 1 






3 APPEND* 






30UT*TEST 






3 







(SORTING DONE ON ZONES IN COLUMN 3.) 



(NOW COLUMN 3 IS SORTED ALPHABETICALLY.) 



11. 



#*S0RTER*I»34*O2*T=*l*P ( SAME PROCEDURE FOR COLUMN 2.) 
COUNTER VALUES- 



0= 





1 = 


1 


2= 


3 


3* 


2 


4 s5 


3 


5» 


3 


6« 


3 


fat 


2 


8= 


3 


9= 


2 


ll« 





12« 





REJECT= 





TOTAL* 


22 


#EDIT 




3FIN 




3 APPEND* 1 




3 APPEND* 2 




3APPEND* 3 




3APPEND*4 




3 APPEND* 5 




3 APPEND* 6 




3 APPEND* 7 




3 APPEND* 8 




3 APPEND* 9 




30UT*TEST 




3 





12 



#*$0RTER>I«34*C* 


*2#T*2.»P 


COUNTER VALUES- 




0* 




7 


1» 







2* 







3* 







4 s 







5= 







6= 







7* 







8* 







9« 







U» 




7 


12* 




8 


REJECT* 







TOTAL* 




22 


#EDIT 






3FIN 12 






3APPEND* 1 1 






3 APPEND* 






30UT*TEST 







#*S0RTER#I*34#C*1*T*1*P 
COUNTER VALUES- 



0= 





1* 


2 


2* 


2 


3= 


2 


4= 


3 


5* 


3 


6* 


2 


7a 


2 


8= 


3 


9« 


3 


11a 





12« 





REJECT* 





TOTAL* 


22 


#EDIT 




3FIN 





(COLUMNS 2 AND 3 ARE NOW SORTED 
ALPHABETICALLY) 

(SAME PROCEDURE FOR COLUMN 1.) 



13 



3APPEND* 1 
3APPEND* 2 
3APPEND* 3 
3 APPEND* 4 
3 APPEND* 5 
3APPEND* 6 

3 APPEND* 7 
3 APPEND* 8 
3APPEND*9 
3 OUT* TEST 

3 

#*S0RTER*I»34*C»1*T=2*P 
COUNTER VALUES- 



0* 


8 


1 = 





2= 





3= 





4= 





5« 





6 = 





7 = 





8= 





9 = 





11 = 


5 


12= 


9 


REJECT* 





TOTAL* 


22 


#EDIT 




3FIN 12 




3APPEND*11 




3APPEND*0 




30UT*TEST 





14 



3LIST 

:ASD 

JBNM 

tCVB 

tDFG 

:ERT 

sFGH 

JGHJ 

1HJK 

:IOP 

JJKL 

JMQV 

:NMQ 

JQWE 

5RTY 

:SDF 

*TYU 

SUIO 

:VBN 

:WER 

$xcv 

:YUI 
I2XC 



3 

#LOGOFF 

TIME 8.800 SECONDS MFBLKS 68 COST $0.95 



(DATA IS NOW SORTED ALPHABETICALLY 
ON COLUMNS 1-3.) 



15 



EXAMPLE 3 

|jOB»80000*ZlP»5AVE FOR KAY. PORTER 

ScOPY»0=FORKAY 

OWE 

WER 

ERT 

RTY (LISTING OF DATA CARDS WHICH ARE 

TYU ENTERED ON CARD READER.) 

YUI 

UIO 

IOP 
A5D 
5DF 
DFG 
FGH 
GHJ 

HJK 
11/ 1 

zxc 
xcv 

CVB 
VBN 

BNM 
NMO 
MQW 

H 

JLOGOFF 

b 



EXAMPLE 3 



16 



#EDIT 



3FIN FORKAY 



FORKAY IS THE NAME OF DATA FILE 
CARDS THAT HAVE BEEN ENTERED FROM 
CARD READER. WE LIST THEM TO SEE 
OUR DATA LIST. 



JQVE 

:WER 

sERT 

:RTY 

*TYU 

JYUI 

:UIO 

xIO? 

:ASD 

:SDF 

JDFG 

JFGH 

:GHJ 

:HJK 

:JKL 

s2XC 

JXCV 

sCVB 

:VBN 

J8NM 

:NMQ 

:MQW 



#EQUIP*33»F0RKAY 
#*SORT£R# I=33#C=3>T=1#P 
COUNTER VALUES- 



= 





i= 


1 


2= 


2 


3= 


3 


4 = 


3 


5 = 


3 


6= 


3 


7* 


2 


8 = 


3 


9 = 


2 


11 = 





12= 





REJECT* 





TOTAL* 


22 



THE SORTING CONTINUES AS IT DID IN 
EXAMPLE 2. 



#EDIT 






3FIN 






3APPEND, 1 






3APPEND#2 






3APPEND>3 






3APPEND*4 






3APPEND,5 






3APPEND*6 






3APPEND,7 






3APPEND*8 






3 APPEND* 9 






30UT*TEST 






3 






#EGUIP*34*TEST 




#*S0RTER*I=34*C= 


*3*T = 2#P 


COUNTER VALUES- 




0* 




5 


1 = 







2= 







3* 







4« 







5= 







6 = 







7 = 







8* 







9 = 







11 = 




9 


12= 




8 


REJECT* 







TOTAL= 




22 


#EDIT 






3FIN 12 






3APPEMD* 1 1 






3APPEND>0 






30UT#TEST 






3 







17 



#*S0RTER*I=34*C* 


= 2*T=i*P 


COUNTER VALUES- 




0= 





1 = 


1 


2= 


3 


3= 


2 


4= 


3 


5= 


3 


6= 


3 


7 = 


2 


8 = 


3 


9 = 


2 


11 = 





12= 





REJECT* 





TOTAL* 


22 


#EDIT 




3FIN 




3APPEND* 1 




3append*2 




3APPEND*3 




3APPEM 




3 APPEND* 4 




3APPEND*5 




3APPEND*6 




}APPEND*7 




3 APPEND* 8 




3 APPEND* 9 




30UT*TEST 





#*SORTER*I= 


'34>C = 2#T= 


COUNTER VALUES- 




OS* 




7 


1 = 







2= 







3* 







4= 







5= 







g s 







7a 







8= 







9= 







11 = 




7 


12= 




8 


REJECT* 







TOTAL= 




22 


#EDIT 






3FIN 12 






3APPEND* 1 1 






3 APPEND* 







19 



30UT#TEST 



#*SORTER#I= 


*34#C= 


1*T=1.»P 


COUNTER VALUES- 




OS* 







1 = 




2 


2= 




2 


3 = 




2 


4 = 




3 


5= 




3 


6 = 




2 


7 = 




2 


8= 




3 


9 = 




3 


11 = 







12= 







REJECT* 







TOTAL* 




22 



#EDIT 
3FIN 



20 



3APPEND* 1 
3 APPEND* 2 
3APPEND*3 
3 APPEND* 4 
3 APPEND* 5 
] APPEND* 6 
3 APPEND* 7 
3 APPEND* 8 
3 APPEND* 9 
30UT*TEST 

3 

#*SORTER* I=34*C~1*T=2*P 
COUNTER VALUES- 



0= 


8 


1 = 





2= 





3« 





4= 





5 = 





6= 





7 = 





8= 





9= 





11 = 


5 


12= 


9 


REJECT* 





TOTAL= 


22 


#EDIT 




3FIN 12 




3APPEND* 1 1 




3 APPEND* 




30UT*TEST 





3LIST 

:ASD 
:BNM 
tCVB 
:DF6 
:ERT 
:FGH 
:GHJ 
2HJK 
:IOP 
jJKL 
:MQW 
2NMQ 
:QWE 
tRTY 
JSDF 
iTYU 
:UIO 
:VBN 
tWER 
tXCV 
sYUI 

3 

# LOGOFF 
TIME 7.427 SECONDS MFBLKS 58 COST $0.82 



21 



